#!/usr/local/bin/perl
use CGI qw(:standard);
use LWP::Simple qw(get);
use XML::Simple;

my $id_partido = param('partido');
my $valor = param('resultado');

my $xml = XMLin("./clientes.xml");

 for( @{$xml->{partido}} ) {
		$xml{$id_partido}=$valor;
  } 

